home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / c2 / pro4 / kclreol.c < prev    next >
Text File  |  1986-05-08  |  749b  |  33 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5.  
  6. #define    CTRL_C    '\003'
  7. #define CTRL_M    '\015'
  8.  
  9. void ClrEOL()
  10. {
  11.     int temp;
  12.  
  13.     if (!GrafModeGlb) {
  14.         struct regval regs;
  15.  
  16.         regs.ax = 0x0300;
  17.         regs.bx = 0;                            /* page 0 ????                */
  18.         sysint(0x10, ®s, ®s);                /* read cursor position        */
  19.  
  20.         regs.ax = 0x0a20;                        /* non-attribute write        */
  21.         regs.bx = 0;                            /* page 0 ????                */
  22.         regs.cx = 79 - (0xff & regs.dx);        /* number of columns left    */
  23.         sysint(0x10, ®s,®s);                /* write blanks                */
  24.     }
  25.     else {
  26.         temp = XTextGlb;
  27.         for (XTextGlb = temp; XTextGlb <= 80; XTextGlb++)
  28.             DC(32);
  29.         XTextGlb = temp;
  30.     }
  31. }
  32.  
  33.